﻿Namespace UI


    Public Class Ajax
        Inherits IPage

        Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
            ReWriteHtmlFile()
        End Sub

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Response.CacheControl = "no-cache"

            REM 检测Cookie登录信息
            REM If IsCheckLogin Then CookieLogin()

            Call IsBasePath() '检查路径

            Dim _F_ As String = Request.QueryString("f")

            If String.IsNullOrEmpty(_F_) Then
                Response.Write("404,缺少必要参数。")
                Response.End()
            End If

            Response.Write(getHtmlData(_F_))
            Response.End()
        End Sub
    End Class


End Namespace